﻿Imports TorneosBackEnd

Public Class ListarEvento

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim negocio As New EventoNegocio


        Dim eventos = negocio.listar()
        Me.dgvCategorias.DataSource = eventos
        Me.dgvCategorias.EditMode = False

        Me.dgvCategorias.Columns(0).HeaderText = "IdEvento"
        Me.dgvCategorias.Columns(1).HeaderText = "Distrito_idDistrito"
        Me.dgvCategorias.Columns(2).HeaderText = "Empleado_idEmpleado"
        Me.dgvCategorias.Columns(3).HeaderText = "Juego_idJuego"
        Me.dgvCategorias.Columns(4).HeaderText = "Nombre_evento"
        Me.dgvCategorias.Columns(5).HeaderText = "Fecha_realizacion"
        Me.dgvCategorias.Columns(6).HeaderText = "Hora"
        Me.dgvCategorias.Columns(7).HeaderText = "Encargado"

    End Sub

End Class